home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / pfrm30.zip / TOTALS.FRM < prev   
Text File  |  1989-03-23  |  2KB  |  27 lines
  1. ~{This form demonstrates how popForm can be used to keep up with running}~
  2. ~{..totals as you browse through a datbase.  Have TESTDATA on the screen as}~
  3. ~{..you use this form.  Since TESTDATA has only one screen of data, you won't}~
  4. ~{..actually be able to follow this form's instructions to "FETCH NEXT SCREEN}~
  5. ~{..AND POP BACK IN".  But you can PRETEND that you did so by simply popping}~
  6. ~{..back into the form several times while TESTDATA is on the screen.}~
  7. ~{..When you decide that you don't want PopForm to record any more screens'}~
  8. ~{..data, just enter "X" when told to "FETCH NEXT...".}~
  9. ~{}~
  10. ~SENDTO TOTALS~~{this causes the info to be sent to a file called "TOTALS"}~
  11. DATE          PAYEE                   AMOUNT                      RUNNING TOTAL
  12. ~label BEGINCYCLE~
  13. ~SENDTO TOTALS~~{this causes the info to be sent to the "TOTALS" file on each}~
  14. ~{..subsequent cycle}~
  15. ~NUM1+("Amount: ",10)~~{this line causes NUM1 to be increased each cycle}~
  16. ~("Date: ",10)~~\~~{the ~\~ causes a carriage return, but no line feed}~
  17.               ~("Payee: ",20)~~\~
  18.                                       $~("Amount: ",10)~~\~
  19.                                                                   $~NUM1~
  20. ~WRITELN "Selected data has been written to a TOTALS file."~
  21. ~WRITELN "NOW, PRESS ENTER KEY, FETCH NEXT SCREEN, AND POP BACK IN."~
  22. ~if ESC<>NEWSCREEN "(or press   ESC   when you're done)"~~goto BEGINCYCLE~
  23. ~{Above line causes a recycling if ESC key is not pressed.  But if ESC is }~
  24. ~{..pressed, cycle is broken and the GRAND TOTAL below is printed}~
  25.                                                                   -----------
  26.                                                     GRAND TOTAL   $~NUM1~
  27.